
Type CalCoreKeyframe
	
	Field m_time:Float
	Field m_translation:CalVector
	Field m_rotation:CalQuaternion
	
	Method New()
	
		m_time = 0
		m_translation = New CalVector
		m_rotation = New CalQuaternion
	End Method

	Function FromData:CalCoreKeyframe(time:Float,t:CalVector,r:CalQuaternion)
		Local k:CalCoreKeyframe = New CalCoreKeyframe
		k.m_time = time
		k.m_translation = CalVector.FromVector(t)
		k.m_rotation = CalQuaternion.FromQuat(r)
		Return k
	End Function
	
	Method Create:Byte() 'not sure what this method was for..
		Return True
	End Method
	
	Method destroy() 'um...
	
	End Method
	
	Method GetRotation:CalQuaternion()
	
		Return m_rotation
	
	End Method
	
	Method getTranslation:CalVector()
		
		Return m_translation
		
	End Method
	
	Method getTime:Float()	
		Return m_time
	End Method
	
	Method SetRotation(rotation:CalQuaternion)
		m_rotation.assign(rotation)
	End Method
	
	Method setTranslation(translation:CalVector)
		m_translation.assignvector(translation)
	End Method
	
	Method setTime(time:Float)
		m_time = time
	End Method


End Type
